home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 November / Chip 11-96.iso / treiber / drucker / lexmark / 4039_xxx / win3x / ps1 / 4039ps1.exe / WK2039PS.ZIP / IBM40396.IN5 < prev    next >
Text File  |  1993-03-07  |  14KB  |  342 lines
  1. %-12345X@PJL ENTER LANGUAGE = POSTSCRIPT
  2. %!PS-Adobe-2.0 ExitServer
  3. %%Title: Microsoft Word Driver Prolog
  4. %%Creator: LEXMARK INTERNATIONAL INC
  5. %%CreationDate: FEB 26 1993
  6. %%BeginDocument: Microsoft Word 5.x 0
  7. %%msinifile: IBM40396
  8. %%EndComments
  9. %%userdict /msinifile known
  10. %%{msinifile (ibm40396) eq {stop} if} if
  11. %%BeginExitServer: 0
  12. %%serverdict begin 0 exitserver
  13. %%EndExitServer
  14. statusdict begin
  15. 600 setresolution
  16. end
  17. userdict /msorigstate known {msorigstate restore} if
  18. save /msorigstate exch def
  19. /msinifile (IBM40396) def
  20.  
  21. /PSl {msdict begin msinit /landscape true def /ptop 612 def 90 rotate} def
  22. /PSp {msdict begin msinit /landscape false def /ptop 792 def} def
  23. %%BeginFont: mslinedraw
  24. /mslinedraw 25 dict def
  25. mslinedraw begin
  26. /FontType 3 def
  27. /FontMatrix [1.0 30.0 div 0 0 1.0 30.0 div 0 0] def
  28. /FontBBox [0 -8 18 30] def
  29. /Encoding 256 array def
  30. 0 1 255 {Encoding exch /.notdef put} for
  31. Encoding 45 [
  32.  /sh   /sh   /sh /light /med /dark
  33.  /sv   /srj  /sdjr /dsjr /sdtr /dstr /djr  /dv
  34.  /dtr  /dbr  /sdbr /dsbr /str  /sbl  /sjb  /sjt
  35.  /sjl  /sh   /sjc  /sdjl /dsjl /dbl  /dtl  /djb
  36.  /djt  /djl  /dh   /djc  /dsjb /sdjb /dsjt /sdjt
  37.  /sdbl /dsbl /dstl /sdtl  /sdjc /dsjc /sbr  /stl
  38.  /black /bb /bl /br /bt] putinterval
  39.  
  40. /pl {transform 0.1 sub round 0.1 add exch
  41.  0.1 sub round 0.1 add exch itransform} bind def
  42. /moveto {pl moveto} bind def
  43. /lineto {pl lineto} bind def
  44.  
  45. /a {moveto lineto stroke} bind def
  46. /b {moveto lineto lineto stroke} bind def
  47. /c {moveto 9 7 lineto stroke} bind def
  48. /d {moveto lineto lineto} bind def
  49. /e {lineto closepath fill} bind def
  50. /f {7 22 7 9 0 9 b} def
  51. /g {12 22 12 9 18 9 b} def
  52. /h {7 -8 7 5 0 5 b} def
  53. /i {12 -8 12 5 18 5 b} def
  54. /j {0 7 18 7 a} def
  55. /k {9 22 9 -8 a} def
  56. /l {0 5 18 5 a 0 9 18 9 a} def
  57. /m {7 22 7 -8 a 12 22 12 -8 a} def
  58. /n {0 -8 18 -8 18 22 d 0 22 e} def
  59.  
  60. /CharProcs 55 dict def
  61. CharProcs begin
  62. /.notdef {} def
  63. /sp { 1 1 moveto } def
  64. /sv {k} def
  65. /srj {k 0 7 c} def
  66. /sdjr {k 0 5 9 5 a 0 9 9 9 a} def
  67. /dsjr {m 0 7 7 7 a} def
  68. /sdtr {0 7 12 7 12 -8 b 7 7 7 -8 a} def
  69. /dstr {0 9 9 9 9 -8 b 0 5 9 5 a} def
  70. /djr {f h 12 -8 12 22 a} def
  71. /dv {m} def
  72. /dtr {h 0 9 12 9 12 -8 b} def
  73. /dbr {f  0 5 12 5 12 22 b} def
  74. /sdbr {0 7 12 7 12 22 b 7 7 7 22 a} def
  75. /dsbr {0 5 9 5 9 22 b 0 9 9 9 a} def
  76. /str {0 7 9 7 9 -8 b} def
  77. /sbl {9 22 9 7 18 7 b} def
  78. /sjb {j 9 22 c} def
  79. /sjt {j 9 -8 c} def
  80. /sjl {k 18 7 c} def
  81. /sh {j} def
  82. /sjc {j k} def
  83. /sdjl {k 9 9 18 9 a 9 5 18 5 a} def
  84. /dsjl {m 12 7 18 7 a} def
  85. /dbl {g 7 22 7 5 18 5 b} def
  86. /dtl {i 7 -8 7 9 18 9 b} def
  87. /djb {f g 0 5 18 5 a} def
  88. /djt {h i 0 9 18 9 a} def
  89. /djl {g i 7 -8 7 22 a} def
  90. /dh {l} def
  91. /djc {f g h i} def
  92. /dsjb {l 9 22 9 9 a} def
  93. /sdjb {j 7 7 7 22 a 12 7 12 22 a} def
  94. /dsjt {l 9 -8 9 5 a} def
  95. /sdjt {j 7 7 7 -8 a 12 7 12 -8 a} def
  96. /sdbl {7 22 7 7 18 7 b 12 22 12 7 a} def
  97. /dsbl {9 22 9 5 18 5 b 9 9 18 9 a} def
  98. /dstl {9 -8 9 9 18 9 b 9 5 18 5 a} def
  99. /sdtl {7 -8 7 7 18 7 b 12 -8 12 7 a} def
  100. /sdjc {m j} def
  101. /dsjc {l k} def
  102. /sbr {0 7 9 7 9 22 b} def
  103. /stl {9 -8 9 7 18 7 b} def
  104. /light {0.90 setgray n} def
  105. /med {0.60 setgray n} def
  106. /dark {0.30 setgray n} def
  107. /black {n} def
  108. /bt {0 7 18 7 18 22 d 0 22 e} def
  109. /bb {0 -8 18 -8 18 7 d 0 7 e} def
  110. /bl {0 -8 9 -8 9 22 d 0 22 e} def
  111. /br {9 -8 18 -8 18 22 d 9 22 e} def
  112. end %CharProcs
  113.  
  114. /BuildChar
  115.   { fs 1 and 0 eq {1} {3} ifelse setlinewidth
  116.     18 0 setcharwidth
  117.     exch begin
  118.      Encoding exch get
  119.      CharProcs exch get
  120.      exec
  121.     end
  122.   } def
  123. end %mslinedraw
  124. %%EndFont
  125.  
  126. FontDirectory /LineDraw known not
  127.  {/LineDraw mslinedraw definefont pop} if
  128.  
  129. %%BeginProcSet: msdict 1.5 0
  130. /msdict 120 dict def
  131. msdict begin
  132. /PSe {end} def
  133. /SLL {pop} def
  134. /P {exch msu exch msu neg ptop add moveto} bind def
  135. /S {sw 0 32 4 -1 roll widthshow} bind def
  136. /C {1 string dup 0 4 -1 roll put S} bind def
  137. /J {msu ( ) stringwidth pop sub /sw exch def} bind def
  138. /PE {showpage ptop exch restore save exch /ptop exch def} def
  139. /SFL {landscape {dup msu neg 0 exch translate} if
  140.  msu /ptop exch def save} def
  141. /B1 {statusdict begin papertray 1 ne {1 setpapertray end} {end} ifelse} def
  142. /B2 {statusdict begin papertray 2 ne {2 setpapertray end} {end} ifelse} def
  143. /B3 {statusdict begin papertray 3 ne {3 setpapertray end} {end} ifelse} def
  144. /BENV {} def
  145. %%BeginModelCheck
  146. statusdict begin product end dup length string cvs /msprod exch def
  147. msprod (OmniLaser) eq msprod (RX7100PS) eq or msprod (OL840) eq or msprod (LaserPrinter15) eq or
  148.  {/B1 {statusdict begin papertray 0 ne {0 setpapertray end} {end} ifelse} def
  149.   /B2 {statusdict begin papertray 1 ne {1 setpapertray end} {end} ifelse} def
  150.   /B3 {} def
  151.   /BENV {} def} if
  152. msprod 0 16 getinterval (IBM LaserPrinter) eq
  153.  {/B1 {statusdict begin papertray 0 ne {0 setpapertray end} {end} ifelse} def
  154.   /B2 {statusdict begin papertray 1 ne {1 setpapertray end} {end} ifelse} def
  155.   /B3 {} def
  156.   /BENV {statusdict begin papertray 2 ne {2 setpapertray end} {end} ifelse} def} if
  157. msprod 0 2 getinterval (HP) eq msprod (Hewlett-Packard LaserJet IIISi) eq or
  158.  {/B1 {statusdict begin papertray 0 ne {0 setpapertray end} {end} ifelse} def
  159.   /B2 {statusdict begin papertray 1 ne {1 setpapertray end} {end} ifelse} def
  160.   /B3 {} def
  161.   /BENV {statusdict begin papertray 2 ne {2 setpapertray end} {end} ifelse} def} if
  162. msprod (IBM Personal Page Printer II) eq
  163.  {/B1 {statusdict begin papertray 1 ne {1 setpapertray end} {end} ifelse} def
  164.   /B2 {statusdict begin papertray 2 ne {2 setpapertray end} {end} ifelse} def
  165.   /B3 {} def
  166.   /BENV {statusdict begin papertray 3 ne {3 setpapertray end} {end} ifelse} def} if
  167. % Add other printer specific tray orderings here.
  168. %%EndModelCheck
  169. /MB {statusdict begin /manualfeed true store end} def
  170. /ME {statusdict begin /manualfeed false store end} def
  171. /DB {statusdict begin true setduplexmode end} def
  172. /DE {statusdict begin false setduplexmode end} def
  173. /B {fs 2 and 0 eq {Bft} {BIft} ifelse
  174.  ftsz scalefont setfont fs 1 or /fs exch def} bind def
  175. /I {fs 1 and 0 eq {Ift} {BIft} ifelse
  176.  ftsz scalefont setfont fs 2 or /fs exch def} bind def
  177. /BI {BIft ftsz scalefont setfont fs 
  178.  2 or 1 or /fs exch def} bind def
  179. /E {Eft ftsz scalefont setfont /fs 0 def} bind def
  180. /F {/ftsz exch def (-) stringwidth pop 2 div neg /STh exch def
  181.  /ftcd exch def 0 2 fonttable length 1 sub {dup fonttable exch 
  182.  get ftcd eq {1 add fonttable exch get fontset exit} {pop}
  183.  ifelse} for E} bind def
  184. /LU {currentpoint /uy exch def /ux exch def 1 ssm} bind def
  185. /LD {currentpoint /uy exch def /ux exch def 2 ssm} bind def
  186. /LS {currentpoint /suy exch def /sux exch def 4 ssm} bind def
  187. /LL {currentpoint /luy exch def /lux exch def /ldmode exch def 8 ssm} bind def
  188. /LE {smode 1 and 0 ne {false (_) ul} if
  189.      smode 2 and 0 ne {true (_) ul} if
  190.      smode 4 and 0 ne {false (\352) ul} if
  191.      smode 8 and 0 ne {lux luy ldot pop pop} if
  192.      not smode and /smode exch def} bind def
  193. /BD {STh ssc} bind def
  194. /BU {STh neg ssc} bind def
  195. /BN {0 ssy neg rmoveto} bind def
  196.  
  197. /msinit {/sw 0 def /ftsz 12 def /smode 0 def /STh -3.6 def /fs 0 def
  198.  /offset 0 def /ldsp 4 def fonttable 1 get fontset E initmatrix
  199.  statusdict begin /waittimeout 360 def end} def
  200. /fontset {dup 0 get findfont /Eft exch def dup 1 get findfont /Bft exch
  201.  def dup 2 get findfont /Ift exch def 3 get findfont /BIft exch def} def
  202. /msu {20 div} bind def 
  203. /ssc {dup /ssy exch def 0 exch rmoveto} bind def
  204. /ssm {dup smode or /smode exch def} bind def
  205. /dul {cc true charpath pathbbox newpath exch pop 2 copy exch sub
  206.  2 mul /dulsp exch def 2 index 2 index moveto cx1 4 -1 roll sub
  207.  dup 0 rlineto 3 1 roll exch sub 0 exch rlineto neg 0 rlineto
  208.  closepath fill} bind def
  209. /ul {gsave /cc exch def currentpoint pop /cx1 exch def smode 4 ne
  210.  {ux uy} {sux suy} ifelse moveto dul {grestore gsave smode 4 ne
  211.  {ux uy} {sux suy} ifelse dulsp 2 gt {dulsp} {dulsp 2 mul} ifelse sub
  212.  moveto dul} if grestore} bind def
  213. /lsetup {x ldsp div round cvi ldsp mul /x exch def lux ldsp div
  214.  round cvi ldsp mul /lux exch def lux ldsp 2 div add luy moveto
  215.  x lux sub ldsp div cvi} bind def
  216. /ldot {gsave 2 copy currentpoint /y exch def /x exch def
  217.  newpath
  218.  ldmode 0 eq {1 setlinewidth 1 setlinecap x lsetup
  219.               {0 0 rlineto ldsp 0 rmoveto} repeat stroke pop pop pop}
  220.  {ldmode 1 eq {.1 setlinewidth lsetup 1 sub 0 (M) stringwidth pop 2.5
  221.                div rmoveto {ldsp 2 sub 0 rlineto 2 0 rmoveto} repeat
  222.                stroke pop pop}
  223.  {ldmode 2 eq {[] 0 setdash /offset 1.4 def .2 setlinewidth
  224.                offset sub moveto x y offset sub lineto stroke} if}
  225.  ifelse} ifelse grestore} def
  226. % /OrigName /NewName Foreign
  227. /Foreign {
  228.   exch findfont begin
  229.   currentdict dup length dict begin
  230.     { 1 index /FID ne {def} {pop pop} ifelse } forall
  231.     /FontName exch def
  232.     /Encoding foreignvec def
  233.   currentdict dup end end
  234.   /FontName get exch definefont pop
  235. } bind def
  236.  
  237. /foreignvec StandardEncoding 256 array copy def
  238. % the following are differences from StandardEncoding.
  239. % Sequential entries do not require indices:
  240. 0 [ 20/paragraph/section 39/quotesingle 96/grave
  241. 128/Ccedilla/udieresis/eacute/acircumflex/adieresis/agrave/aring/ccedilla
  242. /ecircumflex/edieresis/egrave/idieresis/icircumflex/igrave/Adieresis/Aring
  243. /Eacute/ae/AE/ocircumflex/odieresis/ograve/ucircumflex/ugrave/ydieresis
  244. /Odieresis/Udieresis/cent/sterling/yen/P/florin/aacute/iacute/oacute/uacute
  245. /ntilde/Ntilde/ordfeminine/ordmasculine/questiondown/.notdef/.notdef/half
  246. /quarter/exclamdown/guillemotleft/guillemotright/Aacute/Acircumflex/Agrave
  247. /Atilde/Ecircumflex/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave
  248. /Oacute/Ocircumflex/Ograve/Otilde/Uacute/Ucircumflex/Ugrave/Scaron
  249. /Ydieresis/emdash/Zcaron/.notdef/otilde/scaron/zcaron/fraction/section
  250. /currency/quotesingle/quotedblleft/guilsinglleft/guilsinglright/quoteleft
  251. /quoteright/endash/dagger/daggerdbl/paragraph/quotesinglbase/quotedblbase
  252. /quotedblright/ellipsis/.notdef/grave/acute/circumflex/tilde/macron
  253. /germandbls/breve/dotaccent/dieresis/cedilla/.notdef/hungarumlaut/ogonek
  254. /caron/emdash/Lslash/Oslash/dotlessi/lslash/oslash/.notdef/.notdef/.notdef
  255. /.notdef/.notdef/atilde/.notdef/.notdef/ring/bullet/periodcentered/.notdef
  256. /.notdef/.notdef/.notdef/.notdef
  257. ] {dup type /nametype eq {dup /Courier findfont /CharStrings get
  258.    exch known not {pop /.notdef} if foreignvec 2 index 2 index put
  259.    pop 1 add} {exch pop} ifelse
  260.   } forall pop
  261.  
  262. %%BeginMakeForeign
  263. /Courier /Courier-F Foreign
  264. /Courier-Bold /Courier-Bold-F Foreign
  265. /Courier-Oblique /Courier-Oblique-F Foreign
  266. /Courier-BoldOblique /Courier-BoldOblique-F Foreign
  267. /Helvetica /Helvetica-F Foreign
  268. /Helvetica-Bold /Helvetica-Bold-F Foreign
  269. /Helvetica-Oblique /Helvetica-Oblique-F Foreign
  270. /Helvetica-BoldOblique /Helvetica-BoldOblique-F Foreign
  271. /AvantGarde-Book /AvantGarde-Book-F Foreign
  272. /AvantGarde-Demi /AvantGarde-Demi-F Foreign
  273. /AvantGarde-BookOblique /AvantGarde-BookOblique-F Foreign
  274. /AvantGarde-DemiOblique /AvantGarde-DemiOblique-F Foreign
  275. /Helvetica-Narrow /Helvetica-Narrow-F Foreign
  276. /Helvetica-Narrow-Bold /Helvetica-Narrow-Bold-F Foreign
  277. /Helvetica-Narrow-Oblique /Helvetica-Narrow-Oblique-F Foreign
  278. /Helvetica-Narrow-BoldOblique /Helvetica-Narrow-BoldOblique-F Foreign
  279. /Helvetica-Light /Helvetica-Light-F Foreign
  280. /Helvetica-Black /Helvetica-Black-F Foreign
  281. /Helvetica-LightOblique /Helvetica-LightOblique-F Foreign
  282. /Helvetica-BlackOblique /Helvetica-BlackOblique-F Foreign
  283. /Bookman-Light /Bookman-Light-F Foreign
  284. /Bookman-Demi /Bookman-Demi-F Foreign
  285. /Bookman-LightItalic /Bookman-LightItalic-F Foreign
  286. /Bookman-DemiItalic /Bookman-DemiItalic-F Foreign
  287. /Times-Roman /Times-Roman-F Foreign
  288. /Times-Bold /Times-Bold-F Foreign
  289. /Times-Italic /Times-Italic-F Foreign
  290. /Times-BoldItalic /Times-BoldItalic-F Foreign
  291. /NewCenturySchlbk-Roman /NewCenturySchlbk-Roman-F Foreign
  292. /NewCenturySchlbk-Bold /NewCenturySchlbk-Bold-F Foreign
  293. /NewCenturySchlbk-Italic /NewCenturySchlbk-Italic-F Foreign
  294. /NewCenturySchlbk-BoldItalic /NewCenturySchlbk-BoldItalic-F Foreign
  295. /Palatino-Roman /Palatino-Roman-F Foreign
  296. /Palatino-Bold /Palatino-Bold-F Foreign
  297. /Palatino-Italic /Palatino-Italic-F Foreign
  298. /Palatino-BoldItalic /Palatino-BoldItalic-F Foreign
  299. /ZapfChancery-MediumItalic /ZapfChancery-MediumItalic-F Foreign
  300. %%EndMakeForeign
  301.  
  302. /fonttable [
  303. 0 [/Courier-F /Courier-Bold-F /Courier-Oblique-F /Courier-BoldOblique-F]
  304. 8 [/Helvetica-F /Helvetica-Bold-F /Helvetica-Oblique-F /Helvetica-BoldOblique-F]
  305. 9 [/AvantGarde-Book-F /AvantGarde-Demi-F /AvantGarde-BookOblique-F /AvantGarde-DemiOblique-F]
  306. 10 [/Helvetica-Narrow-F /Helvetica-Narrow-Bold-F /Helvetica-Narrow-Oblique-F /Helvetica-Narrow-BoldOblique-F]
  307. 11 [/Helvetica-Light-F /Helvetica-Black-F /Helvetica-LightOblique-F /Helvetica-BlackOblique-F]
  308. 16 [/Bookman-Light-F /Bookman-Demi-F /Bookman-LightItalic-F /Bookman-DemiItalic-F]
  309. 24 [/Times-Roman-F /Times-Bold-F /Times-Italic-F /Times-BoldItalic-F]
  310. 25 [/NewCenturySchlbk-Roman-F /NewCenturySchlbk-Bold-F /NewCenturySchlbk-Italic-F /NewCenturySchlbk-BoldItalic-F]
  311. 26 [/Palatino-Roman-F /Palatino-Bold-F /Palatino-Italic-F /Palatino-BoldItalic-F]
  312. 50 [/ZapfChancery-MediumItalic-F /ZapfChancery-MediumItalic-F /ZapfChancery-MediumItalic-F /ZapfChancery-MediumItalic-F]
  313. 56 [/Symbol /Symbol /Symbol /Symbol]
  314. 57 [/LineDraw /LineDraw /LineDraw /LineDraw]
  315. 60 [/ZapfDingbats /ZapfDingbats /ZapfDingbats /ZapfDingbats]
  316. ] def
  317.  
  318. %%BeginGraphicsDefs
  319. /M {moveto} bind def
  320. /L {lineto} bind def
  321. /LH {currentpoint exch pop lineto} bind def
  322. /LV {currentpoint pop exch lineto} bind def
  323. /R {3 index 1 index 1 index 5 index 5 index 1 index M
  324.  L L L closepath pop pop} def
  325. /setpat {setscreen 100 div setgray} bind def
  326. /setgrayed {{dup mul exch dup mul add 1 exch sub} setpat} bind def
  327. /setbar {{pop} setpat} bind def
  328. /setcross {{2 copy gt {pop} {exch pop} ifelse} setpat} bind def
  329. /fi {1 -1 scale} bind def
  330. /II1 {save count /mscount exch def} bind def
  331. /II2 {userdict begin /showpage {} def /letter {} def
  332.   /legal {} def /a4 {} def /b5 {} def
  333.   /clear { {cleartomark count msdict /mscount get eq {exit} if} loop mark} def
  334.    mark} def
  335. /IT {pop restore} bind def
  336. /IX {exch msu exch msu neg ptop add translate} bind def
  337. /IS {div 3 1 roll div exch scale} bind def
  338. %%EndGraphicsDefs
  339. %%EndProcSet
  340. save /msdictstate exch def
  341. %%EndProlog
  342.